
TRIGGER PROCEDURE FOR CREATE OF PC_MSTR.

{mfdeclre.i }

HK:
do:
    if not can-find ( first dt_mstr where dt_table = "pc_mstr" and dt_type = "ADD" ) then leave HK.
    
    for first dt_mstr no-lock where dt_table = "pc_mstr" and dt_type = "ADD" :
    
        run CreateDthist(input dt_table, input dt_field, input dt_type, input "", input "", 
	        input recid(pc_mstr), input pc_mstr.pc_list, input pc_mstr.pc_curr, input pc_mstr.pc_prod_line, input pc_mstr.pc_part,
     	    input pc_mstr.pc_um, input string(pc_mstr.pc_start), input "", input "") .
     	    
    end.
end.

{hkdttrans.i}
